home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / tile stylist (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 print"[144][147]":poke53280,0:poke53281,0
  3. 15 gosub60000
  4. 20 sys57812"tile font",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  5. 30 print"[144][147]":poke56576,4:poke53272,2:poke648,192:poke53265,27
  6. 40 cl$="[144][159][156][158][129][149][150][151][152][153][154][155]":ch=4:bk=15:br=0:bc=0:pt=0
  7. 50 poke53280,br:poke53281,bc
  8. 60 printmid$(cl$,bk,1)"[147]"mid$(cl$,ch,1)
  9. 70 printtab(9)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  10. 80 printtab(9)"[165][160][160][160][160]tile[160]stylist[160][160][160][160][167]"
  11. 90 printtab(9)"[165][160][160][160]by[160]brian[160]boese[160][160][160][167]"
  12. 110 printtab(9)"[165][213][192][201][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  13. 114 printtab(9)"[165][221] [221][160]pattern[160]#[160][160][160][160][160][160][160][167]"
  14. 116 printtab(9)"[165][202][192][203][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  15. 120 printtab(9)"[165]+[160]=[160]next[160]pattern[160][160][160][160][167]"
  16. 130 printtab(9)"[165]-[160]=[160]last[160]pattern[160][160][160][160][167]"
  17. 140 printtab(9)"[165]*[160]=[160]reverse[160]pattern[160][167]"
  18. 150 printtab(9)"[165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  19. 160 printtab(9)"[165]f1=[160]border[160]color[160][160][160][160][167]"
  20. 170 printtab(9)"[165]f3=[160]background[160]color[167]"
  21. 180 printtab(9)"[165]f5=[160]pattern[160]color[160][160][160][167]"
  22. 190 printtab(9)"[165]f7=[160]character[160]color[160][167]"
  23. 200 printtab(9)"[165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  24. 210 printtab(9)"[165]q[160]=[160]quit[160][160][160][160][160][160][160][160][160][160][160][160][167]"
  25. 220 printtab(9)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  26. 230 gosub350
  27. 233 poke214,8:print
  28. 235 printtab(23)"[160][160][160][157][157][157]"right$(str$(pt),len(str$(pt))-1)
  29. 240 geta$:ifa$=""then240
  30. 245 ifa$="q"then400
  31. 250 ifa$>="[133]"then300
  32. 260 ifa$="+"thenpt=pt+1:if(pt=128)or(pt=256)thenpt=pt-128
  33. 270 ifa$="-"thenpt=pt-1:if(pt=-1)or(pt=127)thenpt=pt+128
  34. 280 ifa$="*"thenpt=pt+128:ifpt>255thenpt=pt-256
  35. 290 goto230
  36. 300 ifa$="[133]"thenbr=br+1:ifbr>15thenbr=br-16
  37. 310 ifa$="[134]"thenbc=bc+1:ifbc>15thenbc=bc-16
  38. 320 ifa$="[135]"thenbk=bk+1:ifbk>16thenbk=bk-16
  39. 330 ifa$="[136]"thench=ch+1:ifch>16thench=ch-16
  40. 340 goto50
  41. 350 bg=51200+128*8+pt*8:ifpt>127thenbg=bg-128*8
  42. 360 forx=0to7:ifpt>127thenpoke51200+32*8+x,255-peek(bg+x):goto380
  43. 370 poke51200+32*8+x,peek(bg+x)
  44. 380 next:return
  45. 400 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  46. 405 poke648,4:print"[147]":poke53272,21:poke53280,0:poke53281,0
  47. 410 ifer%<>63thenend
  48. 420 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  49. 430 print"run"
  50. 440 poke631,13:poke632,13:poke198,2:end
  51. 10000 open15,8,15,"s0:tile stylist":close15:save"tile stylist",8:end
  52. 60000 b9$="                                      "
  53. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  54. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  55. 60030 b9$(0)="[212] [201] [204] [197]   [211] [212] [217] [204] [201] [211] [212]"
  56. 60040 b9$(1)="by [194]rian [194]oese"
  57. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  58. 60060 b9$(3)="[214]1  [208]ublished on [204][207][193][196][211][212][193][210] #85"
  59. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  60. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  61. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  62. 60099 return
  63.